WystΩpuj╣ca w poni┐szym przyk│adzie instrukcja SQL u┐ywa klauzuli ORDER BY do sortowania nazwisk w porz╣dku malej╣cym (od » do A).
W tym przyk│adzie wywo│ywana jest procedura WyliczPola, kt≤r╣ mo┐na znaleƒµ w przyk│adzie dotycz╣cym instrukcji SELECT.
Sub OrderByX()
Dim dbs As Database, rst As Recordset
' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a
' na rzeczywist╣ bazΩ danych Northwind.
Set dbs = OpenDatabase("Northwind.mdb")
' Wybierz nazwiska i imiona zawarte
' w tabeli Pracownicy i nastΩpnie posortuj je
' wed│ug nazwisk w porz╣dku malej╣cym.
Set rst = dbs.OpenRecordset("SELECT Nazwisko, " _
& "ImiΩ FROM Pracownicy " _
& "ORDER BY Nazwisko DESC;")
' Zape│nij obiekt Recordset.
rst.MoveLast
' Wywo│aj procedurΩ WyliczPola w celu wydrukowania
' zawarto£ci obiektu Recordset.
WyliczPola rst, 12
dbs.Close
End Sub